home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / B-Book Series / (k)b6.d64 / disk'get.l < prev    next >
Text File  |  2007-02-28  |  794b  |  30 lines
  1. 9000 FUNC DISK'GET(FILE'NUM,REF FILE'END) CLOSED
  2. 9010 POKE 2028,FILE'NUM
  3. 9020 POKE 2026,1
  4. 9030 SYS 2025
  5. 9040 FILE'END:=PEEK(144)
  6. 9050 RETURN PEEK(2024)
  7. 9060 ENDFUNC DISK'GET
  8. 9070 //
  9. 9080 PROC DISK'GET'INIT CLOSED
  10. 9090 FOR LOC#:=2024 TO 2044 DO
  11. 9100 READ V
  12. 9110 POKE LOC#,V
  13. 9120 ENDFOR LOC#
  14. 9130 DATA 0,160,0,162,0,32,198
  15. 9140 DATA 255,32,207,255,136,208,250
  16. 9150 DATA 141,232,7,32,204,255,96
  17. 9160 ENDPROC DISK'GET'INIT
  18. 9170 //
  19. 9180 PROC DISK'GET'SKIP(COUNT,FILE'NUM,REF FILE'END) CLOSED
  20. 9190 POKE 2026,COUNT
  21. 9200 POKE 2028,FILE'NUM
  22. 9210 SYS 2025
  23. 9220 FILE'END:=PEEK(144)
  24. 9230 ENDPROC DISK'GET'SKIP
  25. 9240 //
  26. 9250 PROC DISK'GET'STRING(REF ITEM$,COUNT,FILE'NUM,REF FILE'END) CLOSED
  27. 9260 ITEM$:=""
  28. 9270 FOR X#:=1 TO COUNT DO ITEM$(X#):=CHR$(DISK'GET(FILE'NUM,FILE'END))
  29. 9280 ENDPROC DISK'GET'STRING
  30.